home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aab.d64 / dat.cards < prev    next >
Text File  |  2007-02-28  |  1KB  |  36 lines
  1. 0010 INITIALIZE
  2. 0020 GO
  3. 0030 
  4. 0040 ╨╥╧├ INITIALIZE ├╠╧╙┼─
  5. 0050   ╒╙┼ SYSTEM
  6. 0060   TEXTCOLORS(3,1,6)
  7. 0070   ╨┴╟┼
  8. 0080   ╨╥╔╬╘ ""18"╠OADING ╟REY═AT ═╠ ─RIVER ╥OUTINES"
  9. 0090   DISKñSCAN("ML.GREYMAT")
  10. 0100   ╨╥╔╬╘ ""145"╠OADING ╟REY═AT ═╠ ─RIVER ╥OUTINES"
  11. 0110   ╨╥╔╬╘ ""18"╠OADING ├ARDS ╨SYCHABULARY ─ATA ╞ILE"
  12. 0120   DISKñSCAN("DAT.CARDS")
  13. 0130   ╨╥╔╬╘ ""145"╠OADING ├ARDS ╨SYCHABULARY ─ATA ╞ILE"
  14. 0140   ╨╥╔╬╘ 
  15. 0150   ╨╥╔╬╘ "  ╘HE ╟REY═AT ═╠ ─RIVER ROUTINES AND A"
  16. 0160   ╨╥╔╬╘ "SAMPLE ╨SYCHABULARY FILE CONSISTING OF"
  17. 0170   ╨╥╔╬╘ "THE 52 STANDARD PLAYING CARDS HAS BEEN"
  18. 0180   ╨╥╔╬╘ "LOADED.  ╩UST RE-╥╒╬ THIS PROGRAM AND"
  19. 0190   ╨╥╔╬╘ "THINK OF A PLAYING CARD FOR A DEMON-"
  20. 0200   ╨╥╔╬╘ "STRATION."
  21. 0210   ╨╥╔╬╘ 
  22. 0220   ╨╥╔╬╘ "  ""╟REY═AT"" IS A REGISTERED TRADEMARK"
  23. 0230   ╨╥╔╬╘ "OF ├EREBRONICS ╚ARDWARE, A WHOLELY-"
  24. 0240   ╨╥╔╬╘ "OWNED SUBSIDIARY OF ╠OADSTAR, ╔NC."
  25. 0250   ╨╥╔╬╘ 
  26. 0260 ┼╬─╨╥╧├ 
  27. 0270 
  28. 9060 
  29. 9070 ╨╥╧├ EXECUTE(CMD$) ├╠╧╙┼─
  30. 9080   ╞╧╥ I#:=1 ╘╧ ╠┼╬(CMD$) ─╧ ╨╧╦┼ 49151+I#,╧╥─(CMD$(I#))
  31. 9090   ╨╧╦┼ $C866,0
  32. 9100   ╨╧╦┼ $C867,192
  33. 9110   ╨╧╦┼ $C865,╠┼╬(CMD$)
  34. 9120   ╙┘╙ $CA30
  35. 9130 ┼╬─╨╥╧├ EXECUTE
  36.